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PREFACE 

This instant outlines the COBOL Version 4.7 language which 
operates under control of the following operating systems: 

NOS 1 for the CONTROL DATA® CYBER 170 
Models 171, 172, 173, 174, 175, CYBER 70 
Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems. 

NOS/BE 1 for the CDC® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 
6000 Series Computer Systems. 

COBOL Version 4.7 is compatible with the American National 
Standard COBOL, X3. 23-1968, and contains extensions to the 
standard. Extensions are indicated in this instant by shading. 

This instant is written for a programmer familiar with the COBOL 
4 language and the operating system on which the language is 
used. 

More detailed information can be found in the publications 
listed below. 

Publication Publication Number 

COBOL Version 4 Reference Manual 60496800 

NOS Version 1 Reference Manual, 

Volume 1 of 2 60435400 

NOS/BE Version 1 Reference Manual 60493800 

CDC manuals can be ordered from Control Data Corporation, 
Literature and Distribution Services, 308 North Dale Street, 
St. Paul, Minnesota 55103. 
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SPECIAL FEATURES 

Mass storage input and output including indexed sequential, actual 
key, and direct access file processing 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and 
SET statements 

Report Writer produces printed reports automatically, or user may 
produce report page with LINAGE clause and WRITE statement 

Full arithmetic facility including: 
18-digit operands 
DIVIDE with REMAINDER 
COMPUTE with exponentiation 
CORRESPONDING option with ADD and SUBTRACT 

Segmentation and overlay of object program 

Inter-program communication with separately compiled COBOL 
programs as well as with FORTRAN or COMPASS programs 

Access to COBOL source library 

Memory dumps with restart at specified checkpoints 

Remote interactive capability for remote terminal input/output 

Multiple-index processing capability 

Ability to trace paragraphs 

EBCDIC file processing 
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PROGRAM EFFICIENCY HINTS 

To reduce keypunching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 

To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 
Eliminate unnecessary paragraph names. 
Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 1 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

U e ;OI |PU1 ftT GNA1 ' . em > indc - mnt . s bsa p s 

Ht ' Ml H ? ''A. I iter , ? i f ', ie«] rat ib 

Restrict arithmetic items to 9 digits or less. 

Use SYNCHRONIZED RIGHT clause for data frequently refer- 
enced. 

Use SAME RECORD AREA to save moves. SAME AREA to save 



NOTATION 

[ ] Enclosed elements are optional. 

< ? Only one element must be selected 

. . , Repeat preceding bracketed material as needed. 

{ } ... Entire phrase can be repeated. 

COBOL words have preassigned meanings and appear in capitals. 

COBOL words not underlined can be omitted. 

Terms in small letters are words supplied by the programmer. 

Punctuation and special characters are required where shown. 

60497000 B 1 



COBOL LANGUAGE ELEMENTS 

Word Sequence of up to 30 alphanumeric characters including 

embedded hyphens. 

Identifier Data name followed by qualifiers, subscripts, and indexes. 

Literal String of characters that represents a specific value; 

numeric literal can be a string of up to 18 digits 0-9, 
+, -, and decimal point; non-numeric literal can be a 
string of up to 255 alphanumeric characters and must 
be enclosed in quotes. 

Identifier Word that may be qualified or subscripted. 

Literal String of characters whose value is exactly represented 

by the characters; numeric literal may be 0-9, +, -, and 
decimal point; non-numeric literal must be enclosed in 
quotes, may beany alphanumeric character except quotes. 

Statement Procedure Division verb with associated options. 

Sentence One or more statements terminated by period. 

Paragraph Procedure Division sentences. Identification and Environ- 

ment Division entries introduced by paragraph name, 
terminated by period. 

Paragraph Word terminated by period used to introduce paragraph; 
Name user defined in Procedure Division, pre-defined in Identi- 

fication and Environment Divisions. 



Section 



Group of one or more paragraphs introduced by 
section header. 



Section Word followed by SECTION and terminated by period; 

Header user defined in Procedure Division, pre-defined in 

Environment and Data Divisions. 



Entry 



Unit of description in Data Division; must be terminated 

by period. 
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IDENTIFICATION DIVISION 



FICATION I 



DIVISION. 



ID 

IDENTIFICATION 
PROGRAM-ID, program-name. 
[ AUTHOR, [comment-entry.]] 
[ INSTALLATION, [comment-entry.]] 
[ DATE-WRITTEN, [comment-entry.]] 
[ DATE-COMPILED, [current-date supplied by compiler.] ] 
[ SECURITY, [comment-entry.] ] 
[ REMARKS, [comment-entry.] ] 



ENVIRONMENT DIVISION 



ENVIRONMENT DIVISION 



CONFIGURATION SECTIONp 






format 1 : 






SOURCE-COMPUTER. COPY library-name 








l^lilillifclif 


literal-2 ) 






REPLACING word i BY < 
idwtit'iw ' 


word-2 > 






{ identifier-2 ) 






i/~ £1 l 


literal-4 |1 


- 




< word-3 > BY < 


word-4 > 








1 i r-3 ' 


^ identifier -4 ). 


_ 



format 2: 

SOURCE-COMPUTER, computer-name. 



format 1 : 

OBJECT-COMPUTER. COPY library-name 

I literal- 1 j ( literal-2 I 

REPLACING ' word-1 s BY < word-2 

! iderrtifier-1 ) ' identifier 2) 

I literal-4 ] 
BY I word-4 [ 



I." 



'CONFIGURATION SECTION. SOURCE-COMPUTER, and 

3E >-:,' • Mi'UTEH »<: ot-lro ... 
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format 2: 

OBJECT-COMPUTER, computer-name 

[ SEGMENT-LIMIT IS prioritv-numberl 



WORDS 
MEMORY SIZE integer { CHARACTERS 
MODULES 



format 1 : 



SPECIAL-NAMES. COPY library-name 



REPLACING 



i li i ■•: j 

I word-'! , 

1 TitiHe S 

i f >.tl-3 

. I idwrt--tt.tr- "j * 



BY 



BY 



iiteral-2 ) 
word-2 
identif ier-2 j 

literal— 4 

word-4 
identifier-4 



format 2: 

SPECIAL-NAMES. 

SWITCH integer-1 

IS mnemonic-name-1 

[ON STATUS IS condition-name- 1 
[ OFF STATUS IS condition-name-2] ] 

|S mnemonic-name-2 

[ OFF STATUS IS condition-name-3 
[ON STATUS IS condition-name-4] ] 

ON STATUS IS condition-name-5 
[ OFF STATUS IS condition-name-6] 

OFF STATUS IS condition-name-7 
[O.N STATUS IS condition-name-8] 

[ implementor-name-1 IS mnemonic-name-1 
implementor-name-2 IS mnemonic-name-2 . . .] 

. h * * : :. . ■ .' S' < 

' M h I! i I }ll -,, , E 

*ss : JS: :: S^'KS :i : ^SgSgiiimi;:::^^ 0:s™\ 

[ CURRENCY SIGN !S literal] 
[ DECIMAL-POINT IS COMMA1 
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i .'•< . ■_!£ . nfl fflf r:i line) 
[ TERMINAL IS mnemonic-name] 



format 1 : 

FILE-CONTROL. COPY library-name 



• lllir't 

REPLACING I word-1 

t :.,■,-:,:■„ i : 



INPUT-OUTPUT SECTION. 



( literal-2 
BY 2 word-2 
I identifier-2 



literal 4 | 
BY <! word-4 > 
v identif ier-4 ) - 



format 2: 

FILE-CONTROL. 

| SELECT f OPTIONAL l file-name-1fRE ' - _(,Wi) iarr,e-2J 
ASSIGN TO [integer] implementor-name-1 [implementor-name-2].. 
[ OR implementor-name-3 [implementor-name-4] ...] 

[ FORMULUPLE^}]]) 



"- <ROR FILE , IS file-name) 



|RESERyE{|^ eger } ALTERNATE 



HAREA H] 
LI AREAS) J J 



f FILE-LIMIT IS I 
1 FILE-LIMITSARE i 



THRU 
, THROUGH 



}{ 



/ data-name-1 ) 
\ literal-1 j 

data-name-2 ) 
literal-2 f 



[" / data-name-3 \ I THRU \ 

L \ literal-3 ) 1 THROUGH J 



i data-name- 
; literal 



ame-4 \ "] 
4 / J ■" 
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STANDARD 

DIRECT 



QB^mmu us IN oh go mumnALi 



r 

f BELATJ.yi 

' ' ' OJAi <£V 

T PROCESSING MODE IS SEQUENTIAL ! 

( ACTUAL KEY IS data-name-1 V 

_._ ir- .j , '1,1. i [with uijj cjvrt'A < 

I Qf'j ' r -> ■ - i: !ui hi - ; ■ : J Jj lit " s | 

"ALT ERIMAfH RE! )Rr> KE s rfdt? >m 
[WITH ! IP LIC A' F! UNDEXI t IJ] 

LuMBER OF BLOCKS IS ' ^ta-name O 

I' ^ l J 

rC IMSEX-LEVEL IS I , 1 

u MLi£ <-tr-v Ei :are • ""'"• |P ' J 

f-ifcO-PtOCi 1\TAJMS ir.t • -, :;iAP,ACTr;i j 
fw ECOBLi -ftl C< Ml ■>•,.,. * ! E^ :i j 

[index,- •r.cLi.i-'', • in ..'. • - -■< *■!■■ . 

t ! ---,' ING !:> v ' . -,f, r,| I . \ 



format 1 : 

l-O -CONTROL. COPY library-name 

l literal-] ) t literal-2 

REPLACIN G ' word-1 > BY < word-? 

' identifier -I j ' identifier-? 

rl liferal-3 1 ( literal-* 

< word-3 > BY < word-4 



ttentifiei 3 ) \ identifier-4 
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format 2: 

1-0 CONTROL. 

RERUN [ON i fi '™- 1 

"*" — ( implementor-name 



r] 



l ^ 0F] {(!i:boFfile-name-2, 



EVERY < ( integer-1 RECORDS 

I integer-2 CLOCK-UNITS V 

v condition-name / 

/ SAME AREA FOR file-name-1 jfile-name-2} ... J 

(SAMeI^^^AREA FOR file-name-1 lfiie-name-2}...) 



MULTIPLE FILE TAPE CONTAINS file-name-1 
f POSITION integer-1] 
[ file-name-2 [ POSITION integer-2]] ... J 



60497000 B 



PICTURE DESCRIPTION CODES 

Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 
P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 

* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

Comma 

Actual decimal point 

B Blank 

Zero 

Minus sign when item is negative, blank when positive; floating 
when more than one 

+ Plus sign when item is positive, minus when negative; floating 
when more than one 

CR Credit symbol when item is negative, blank when positive 

DB Debit symbol when item is negative, blank when positive 



Is 
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DATA SPECIFICATIONS 





File 
Section 


Common and 

Working 

Storage Sections 


Constant 
Section 


01 


9 

r 



u 

p 


e 
1 

e 
m 


77 


01 


g 

r 
o 

u 
P 


e 
1 

e 
m 


77 


01 


9 
r 
o 
u 
P 


e 
I 
e 

m 


REDEFINES 


1 






















SIZE 




K 


R 


R 




K 


R 


R 




K 


R 


USAGE 
























CLASS 








R 








R 








OCCURS 


1 






1 


I 






1 


I 






POINT LOCATION 


J 






















SIGNED 


J 






















JUSTIFIED 


J 






















SYNCHRONIZED 


J 






















PICTURE 


J 






















Editing Clauses 


J 














1 






I 


COPY 
























VALUE 


K 


K 


C 










V 






V 


FILLER 


1 






1 


I 






1 


I 







C 


Legal only in defining values for co 


I 


Illegal 


R 


Required if PICTURE is not used 


blank 


Optional 


V 


Required 


J 


Legal only on elementary 01 items 


K 


Documentary only 



01 items can be elementary or group, depending 
on the program 
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DATA DIVISION 

DATA DIVISION. 

[FILE S ECTION. 1 

IE ''-I - > Jl - e -m riON. l 

[WO RKING-STORAfiF SECTION. l 

■ ••' a »j sEGDC^j 

[ LINKAGE SECTION ! 
f REPORT SECTION. l 

File Description Entry (File Section Only) 

format 1: 
I FD file-name COPY library-name 



(liter*. 1 j (literal-2 

R EPLACI NG ; word I BY < word-2 

• ' ' " ( identifier-2 



j literal J ■ ( literal-4 )"| 

i word 3 > BY 1 word-4 > ... 
( identifier-4 )J 



format 2: 
I FD file-name 

[ BLOCK CONTAINS [integer-1 JO] integer-2 {MCMUS^}] 

( [ ^ {rSLsARE }^ta-name-1 (data-name-2) ...]) 

) j REPORT IS ) „, ( 

( ( REPORTS ARE / re P ort - name - 1 [report-name-2J ... J 

Ft! , ." NT, , i: ajJGUI ..■-. . [•£ •■! P5J 



I data-name-1 [data-name-2] 
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If label records are STANDARD: 



[ *^<* [ i Identification ! IS i a":™-, I"] 

[ DATE*R.TTEN ,s;:S^i] 

[ edition-number is I^L-ol] 

[renumber is ; ^:;le- 4 !■] 

[ retentiqn-cvcle is •; ^^ ; ] ] 



If label records are a data-name: 



[ 



VALUE QJF data-name-3 IS \ J' tl ; raM ] 
( data-name-4 ) 



I",, c IC / literal-2 ) "1 ! 

data-name-5 IS < „ > ••• 

|_ t data-name-6 ; J j 

I* L'ALyF Of EMDJjmJMId^ASEidDEjmFIER 

f literal -3 \ ] 

I dala-name - / ! j jfyii 

f LfNAQF. IS { I"**" UiNES j 

RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 

Depending on ! REC0 , RD :r RK ;] 1 



| - ; ,-w . , - 



.re cording mode is[ ( jj' f l* R ,* 



HIJ h . 
'LOW " ' ' _, T 

• i ; i ■ , , 



I 



[RECORDING MODE 13 EBCDIC 



' §! 01 £NCFDOt\! daia-nai ,- • i . « ,- me- | 



Sort File Description Entry (File Section Only) 
format 1 : 

SD file-name COPY library-name 

1-1 



Jlitei 1-1 , (literal-2 ) 

REPLACING ' • > BY ^ word-2 > 

(identifier-! ) ' ( identifier-2 ) 

I] 



"(literal-3 I ( literal-4 

, BY < word-4 
_ (identifier^) (identifier-4 



format 2: 
SD file-name 



f"„«T. ( RECORD IS \ , -i 

DATA \recORDSARE) data-name-1 [data-name-2] ... 

(" RECORD CONTAINS [integer-1 JO] integer-2 CHARACTERS] 

[FILE COM! !!•' -\BOUTirae. \'L >RUS j 



Record Description Entry (File, Common-Storage, Working-Storage, 
Constant and Linkage Sections) 



format 1 : 

(01 ) 

.. Q2_4gj data-name COPY library-name (i ;< *1 i mriARr i 



/ word-1 
RF.PLA C ING ! irieoi 1 : - 



I 

I , , i 

3i , ' 



( word-2 

JLY< identifier-2 

( literal-2 



r '."'".;.' 



I word-4 



' ■ . *. i .' BY< identifier-4 



iter a I 



' literal-4 
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format 2: 

el numb i dat -in rw I [REGS' INES.i« 11 tied 

format 3: 

level-number (data-name 1 [REDEFINES identifier] | 

( Fl LLER } 

I 




CHECK PROTECT j 

( ZERO SUPPRESS I 

1 HUMERI I 
1 £ ..8_ 



JUST ) 

!UiiL V RIGHT 

JUSTIFIED ) 



OCCURS [integer-1 TO] integer-2 TIMES 
f DEPENDING ON data-name-1 ] 

r i ASCENDING *.„,.„,„_, - ,. . ,, 1 

\\ DESCENDING / KEY IS data-name-2 [data-name-3] ...J . 

[ INDEXED BY index-name-1 [index-name-2] ...] 
[ { FUTURE }'S character-string ] 
I" POINT LOCATION IS ] j^j^ T | integer PLACES ] 
BANGE IS literal-. []^ UGH j- li^l-2 ]] 

t 5' ( rl'LKi! I I 

SlfiN SSdato- lame I I 
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I" SIZE IS integer (" ' CHARACTERS! ] 1 

L — I. > di ! : i J | 

II" / SYNC I ["LEFT I 1 

L l SYNCHRONIZED / [ RIGHT I J 



[USAGE IS] 



[VALUE IS literal] . 
format 4: 



' COMP 

COMPUTATIONAL 

CO MP- 1 

COWUTATIONAL i 

CQMP-.2- "' 

COMWJTATiONAL-2 

CGJVIP^ 

COMPUTATJONA_L-3 

DjSPLAY 

INDEX 



66 data-name RENAMES identifier-1 f { ItlBii I identifier o\ 

L 1 THROUGH I iaentltl «r-2J . 



format 5: 



88 condition-name / VALUE ,, IS ) 

(VALUES ARE/ ' ' 

[{tHTOUGh} I'taraw] [literal-3 [{ ™ UfiH }literal-4]],. 



Report Description Entry (Report Section Only) 
format 1: 

RD report-name [Wl TH CODE mnemonic-name] 

tj liiu.il- I , 
REPLACING word-1 ' BY 

' identifier- 1 ' 



literal-2 
word-2 
identifier-2 ) L 



I ' ' , 
word-3 
identifier- 3 



I BY 



literal-4 
word-4 
identifier-4 ) - 



14 
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format 2: 

RD report-name [Wi :' L i CODE mnemonic-name] 



CONTROL IS 



,} 



identifier-1 [identifier-2] ... 

FINAL 

FINAL identifier-1 [identifier-2] 



! LINE 
MES 



I CONTROLS ARE 

(LIMIT IS ) . . . (kl 

i^M LIMITS ARE }' me3eM {UN 

[ HEADING integer-2] [ FIRST DETAIL integer-3] 

[LAST DETAIL integer-4] [FOOTING integer-5] _ 



Report Group Description Entry (Report Section Only) 
format 1: 

01 [data-name] COPY library-name : f >!• ! \W£ L*< I 



REPLACING < word-1 



' literal-2 
j BY I word-2 

I identifier-2 



s literal 3 
vord-3 
1 ,..xritii..:'i 3 



■' word-3 > BY < v 



literal-4 

word-4 
identifier-4 



format 2: 

.. .;, . „ i !Lj EFl^Ei '.i?.'l ic: 
i I i«t ns e-2 I ROM SOJ BCE 

format 3: 

01 [data-name] 



[CI ASS IS i 



- ALPHABETIC , 

•' feiiviEfiii; ( 

■ AIM ' 

I integer-1 
LINE NUMBER IS < PLUS integer-2 
t NEXT PAGE 



60497000 B 



15 



! 



[( integer-1 ) "] 

NEXT GROUP IS i PLUS integer-2 > 
( NEXT PAGE ) J 



TYPE IS 



j f USAG 



REPORT HEADING 

ati 

PAGE HEADING 

...PI 




CONTROL HEADINC 
CH 

DETAIL 
Of 
I CONTROL FOOTING 

1 CF 
0.VEB x * CfiXO 

ov ■ 

PAGE FOOTING 

EE 

REPORT FOOTING 

E£ 

E IS] DISPLAY 1 



identifier-2 ) 
FINAL j 



Report Element Description (Report Section Only) 
TYPE clause allowed if level 01 
NEXT GROUP clause allowed if level 01 
level-number [data-name] 



I" . ' ; Li!.JI WHhN ERO j 
i. > BV1Z ■ ' I 



] 



I ChECEPftoTPCl \ 

F ~^ {CURRENCY! 2 ^ ILEAVmG.n^, PLACES) 

: \ Sail) SLWuisSB t : ■■'■'" ■" 



16 



60497000 B 



> 



AkaSAP£L 1 



( COLUMN NUMBER IS integer] 

fSBQJJP INDICATE] 

T I JUSTIFIED ) "1 

L {^ / RIGHT J 

[I integer-1 \ "I 

LINE NUMBER IS < PLUS integer-2 > 
( NEXT PAGE I J 

[ { PICTURE } 'S character-string ] 

[ POINT LOCATION IS J ^^ T J integer PLACES J 

[( identifier ) "1 
MSEI° N 1 FINAL /J 

r j SIGNED I ] 

L ' SIGN IS data-name I J 

[ft '•• r •• : * ill 
SJZEISintege, [, D(G|TS ,JJ 



/ [ ECTED] ititier 




SOURCE lb 



SUM identifier-1 [identifier-2] . . . [UPON data-name] 
VALUE IS literal 



[[USAGE IS] DISPLAY ] . 
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USAGE SPECIFICATIONS 



Element 


Upper Limit 


data-name 


30 characters 


literal: numeric 

non-numeric 


18 digits 
255 characters 


PERFORM nesting 


no limit 


level numbers 


01-49, 66, 77, 88, FD, RD, SD 


OCCURS... DEPENDING ON 


1 per record description 


library copies 


5 levels of nesting 


ACCEPT items 


80 characters; 

40 characters from console 


PICTURE clause 


30 symbols 


arithmetic operand 


18 digits 


GO TO statement 


no limit 


ALTER statement 


100 procedure names 


DISPLAY items 


no limit 


ENTER parameters 


no limit 


Total files, I/O devices, 
and reports 


53 


Total procedure names 


depends on field length 


Total external references 


depends on field length 


index names 


9 


report group 


127 detail lines 



18 



60497000 B 



VALID MOVE OPERATIONS 



\ Rec. 
\Field 
SourceV 
Field \ 


Elem. 
Binary 


Elem. 
Alpha 


Elem. 
BCD 

Num. 


Elem. 
AN 


Elem. 

Edit 

Num. 


Elem. 
Edit 

AN 


Group 
AN 


Elem. 
Binary 


Num. 
Bin. 


X 


Conv. 
Num. 


Conv.t 
AN 


Conv. 
Edit 


Conv.t 
AN- 
Edit 


TD 

AN 


Elem. 
Alpha 


X 


AN 


TD 
AN 


AN 


X 


AN- 
Edit 


AN 


Elem. 
BCD Num. 


Conv. 
Bin. 


TD 

AN 


Num. 


ANt 


Editt 


AN- 
Edit 


ANt 


Elem. 
AN 


X 


TD 
AN 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Elem. 
Edit Num. 


X 


TD 
AN 


X 


AN 


X 


AN- 
Edit 


AN 


Elem. 
Edit AN 


X 


TD 
AN 


X 


AN 


X 


AN- 
Edit 


AN 


Group AN 


TD 
AN 


TD 
AN 


TD 

AN 


AN 


X 


AN- 
MOVES 


AN 


Group 
Binary & 
Mixed 


TD 

AN 


TD 

AN 


TD 

AN 


TD 
AN 


X 


TD 
AN- 
MOVES 


TD 
AN 


Zero 


Num. 
Bin. 


X 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Literal & 
Fig. Cons. 
AN 


X 


TD 

AN 


X 


AN 


Edit 


AN- 
Edit 


AN 


Literal 
Num. 


Conv. 
Bin. 


X 


Num. 


ANt 


Edit 


AN- 
Edit 


AN 



t Valid only when source is integer; others TD. 

Any move to a binary or mixed group is treated as an alphanumeric 

move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 



X 

AN 

AN-Edit 

Conv. 

Edit 


Illegal 

Alphanumeric 
Alphanumeric edited 
Conversion prior to move 
Numeric edited 


Num. 
Num. Bin. 
TD 
AN-MOVES 


Numeric 
Numeric binary 
Trivial diagnostic issued 
Alphanumeric moves 


Bin. 


Binary 
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PROCEDURE DIVISION 

PROCEDURE DIVISION !_>•>.. rnwter- iissl 
DECLARATIVES. 

{ section-name SECTION, declarative-sentence. 

{ paragraph-name. { sentence. } ... } ... } ... 
END DECLARATIVES. 

{ section-name SECTION [priority-number] 
< paragraph-name. < sentence. } ... } ... } ... 



ACCEPT identifier 



EBffl. if i>-;. J 
' mnemiinir riarnt ' 



„ DD j ivfe-ttitiH -1 I f I ;.:-, iJfiw "'; 

I hteral-1 I L'l literal-2 t'J " 

!.' s icr-3 ';, - lUDEDj 

(ON SIZE ERROR imperative-statement I 

ADD I identifier- 1 \ T I identifier-2 t] 

( literal-1 I L I literal-2 |J '" 

TO identifier-3 [ROUNDED] [identifier-4 [ROUNDED] ] ... 
[ON SIZE ERROR imperative-statement] 

ADD I identifier - 1 I I identif ier-2 \ f ( identifier-3 \ 1 

(literal-1 / (literal-2 ) L(literal-3 /J '" 

GIVJNfi identifier-4 [ROUNDED] lidertlifiei 5 EROUf-i&H - 
[ON SIZE ERROR imperative-statement] 

^ { correspondin g } identifier - 1 

TO identifier-2 [ ROUNDE D' rt- ;if» 3 (R< • _,,.. I. 
[ON SIZE ERROR imperative-statement] 
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ALTER procedure-name-1 TQ [ PROCEED IQ] procedure-name-2 
[procedure-name-3 IQ [ PROCEED TOl procedure-name-4] ... 

C '.. ! ,.s gid > nan . L*SIM '• I fam .m list! | 

a««^ [{ffi}] [ — {1™°}] 

[ fi ,e_ 2 [{^}] [w,T H { *£«}]]... 

COMPUTE identifier-! [ ROUNDED 1 (Went fi i- 521 H OKD] ] ... 

( FROM j ( literal ) 

I = > < arithmetic-expression > 

( EQUALS ) I identifier-3 ) 

[ON SIZE ERROR imperative-statement] 

&1CI1) IFROMUHJABXl | 

( literat-1 j ( literal-2 ') 

REPLACING < word-1 > BY < word-2 > . 

I identifier 1 > Udentifier-3 ) 1 



| . litei • \ ( literal-4 

< word-3 > BY < word-4 



l\ identifier 4 t identifier-5 ) . 

DELETE [ LASTJ RECORD FROM file-name 

I NVALID KEY imperative statement 

„.,.„. «w ( identifier-1 \ [ i identifier-2 \ "l 

B^^Mliteral-1 / Li literal-2 11 ™ 

[ UPON mnemonic-name] 

DIVIDE / identifier - 1 l INTO identifier-2 [ ROUNDED ! 
(literal ) 

[identi' ■ BOUJb iESl ] 

[ON SIZE ERROR imperative-statement] 
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DIVIDE / identifier-1 ^ (BY ) ( identifier-2 ' 
{ literal-1 ) \ INTO / I literaf-2 : 

eiyiNfi identif ier-3 [ ROUNDED lj 

[ON SIZE ERROR imperative-statement] 

DIVIDE / identifier-1 1 (BY \< identifier-2 ) 
I literal-1 / \ 1NTQ / I literal-2 / 

GIVING identifier-3 [ ROUNDED ! 

REMAINDER identifier-4 

[ON SIZE ERROR imperative-statement] 
ENIER|language-nam| routine-nan.. iNgp , lB , , ■ 
ENTER CQBQL] 
ENTER LINKAGE .1 

lMTF • ....,.,(,_,;_ ,, , , )| 
EXAMINE identifier 

"*™ {\MSffiJ '[SlACiNfiB^Uteral-2] . 



(UNTIL FIRST 

( ALL 

< LEAD 
(f UNTI 



(ALL ) 

REPLACING { LEADING } literal-3 BY literal-4 

Ul first ) 

EXIT. 



i £XJJ m jRAM : 
' Ely m_ " ' 

GENERATE identifier 

5Q IQ [procedure-name] 

iO TO procedure-name-1 [procedure»-name-2] ... 
DEPENDING ON identifier 
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If conditional-expression [THEN] 



[tTHBfl [^ 



ERWISE ) 



statement-2 
NEXT SENTENCE 



}] 



Conditional expressions include: 



(identifier-fl 
<literal-1 ) 
(formula-1 ; 



/ GREATER THAN 

GR 
i > 

LESS THAN 
I LS 
j <; 

. /GRt/' i EH i 01 '•>. o\ 
(IS [NOT] \ gg N 

LESS-EOUAt TO 

LQ 

EQUAL TO 
-{'UAL r ." 

i FC 



i IN «JAI T ) 
EQUALS ~~ 
EXCEED 
IS NQ 

is m :• 
is MLS 



I (identifier-2) 
><literal-2 > 
' (formula-2 ) 



( POSITIVE ) 
( identifier 1 |S [N0T1 ^ NEGATIVE ) 
(formula ) I ZERO ) 

.. •,■ ,o ,„ nT . / NUMERIC \ 
.denser IS [N0J)^ ATFH 7ig T|c ^ 

[NOT1 i condition-name ( 

. i ,,.. nnine-1 i i ort wm< '1 ' 
INITIAIh . , j ) 

MOVE /W entifier - 1 \ TO identifier-2 [identifier-3] 
(literal ) 



MOVE |SSfi^ 1 

a!ia£ 1 CORRESPONDING I 

identifier-2(identifier-31 ... 



identifier- 1 TO 
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MUUTIPLY {|? t *" a t | fieM } BY identifier-2 [ ROUNDED] 

M '■•■ < - ' • m sfi]] ... 

[ON SIZE EJiJJORjmperative-statement] 

MULTIPLY { identifier- 1 ) I identifier-2 ) 
I literal-1 f — ( literal -2 / 

GIVING identifier-3 [ ROUNDED 1 

[ON SIZE ERROR imperative-statement] 

NOTE character-string. 

EXTENP file-name-1 |f,le-name-2] ... 

INPUT file-name-1 ["/ REVERSED l] 

L I WITH NO REWIND I I 

T f i le-name-2 [" f REVERSED H ] 

L 11 WITH NO REWIND i J J — 

OUTPUT file-name-1 [WITH NO. REWIND 1 

[file-name-2 [WITH NO. REWIND] 1 ... 

'! ,'_,'," '-'•' ! ' ; file-name-1 [file-name-2] ... 

PERFORM procedure-name-1 [{ t^{^ ugh } procedure-name-2l 

{ ! d ! n,i,isr } TIMES 
( integer ) 

UNTIL condition 



OPEN 



24 60497000 B 



PERFORM procedure-name-1 [j ™^ UGH } procedure-name-2j 

(literal-1 ) 

VARYING i ,'" de ?!:" a T !• FROM { index-name-2 } BY 



identifier-1 / ( identifier-2 

literal-2 \ mT[LcondMon ., [after { ™°*~ 3 ) 
identifier-3 ) I * identifier-4 ) 



FROM | index-name-4| BY { |dentifitr-6 } UNTI L c°" diti ° n - 2 
I identif ier-5 ' 

, _, (literal-5 ) 

[ AFTER Jindex-name-5) FR0M J inde x-name-6 } BY 

L \ identif ier-7 I ' I identifier-8 ) 



(literal-6 \ UNTIL condit ion-: 
( identif ier-9) 



n-3}] 

READ file-name[ NEXT l RECORD UNTO identifier] | 

( AT END imperative-statement ) - 

i '— . , NVAL D KEY imperative-statement! I 

I riil • , i ij ) » 

e, ; iwi ■ ,t,s Mt'xi] :-':' u! r - I 

' Al Ji' Iflipfr! tl '- '' ltd • 'i. j. 



- , , , ,"___'-> 1 « . e-statemen .' 

RELEASE record-name [ FROM identifier] 
RETURN file-name RECORD [ INTO identifier] 
AT END imperative-statement 

RgWRjTE f^ASJj recoi'ci-name f.FHOM identifier] 
sVALH KEY i -i -. ( ■-'- ie-il 

SEARCH identifier-1 [ VARYING {!£™}] 

[AT END imperative-statement-1 ] 
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WHEN condition-1 I 'J^'^T 
t NEXT SEN 

I" VVHMcondition-2 / imperative-statement-3 1 1 
L (NEXT SENTENCE /J " 

SEARCH ALL identifier [AT END imperative-statement-1 ] 

WHEN condition i ^"ive-statement-2 ) 
( NEXT SENTENCE / 

| SEEK file-name RECORD {WITH -' _ u ^RSI.ONI 

SET / index-name-1 [index-name-2] ... ) 
1 identifier-1 [identifier-2] ... / 

I index-name-3 \ 

IQ < identifier-3 > 

' literal ) 

SiX index-name-1 [index-name-2] ... 

/ UE BY \ ( identifier \ 
I DOWN BY / ( literal I 

S^ldlta-Le! RECORDS ON file-name 

SQRTfile-name-ION ( DESCENDING ) 
( ASCENDING / 

KEY data-name-1 [data-name-2] ... 

T ™, J DESCENDING ) „ "i 

L ° N 1 ASCENDING } «EY data-name-3[data-name-4]...j... 

/ INPUT PROCEDURE IS sentinn-namp-l \ 

) [7 THRU 1 ' . n ( 

) h THROUGH f "rt">"-"ame-2 [ V 

I USlKiG.fi le-name-2 / 
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OUTPUT PROCEDURE IS section-name-3 



f/ THRU 



I \ THROUGH 
GIVING file-name-3 



section-name-4 



-. " 'K 1 : ' i-.: f iu 



. . B U.Ai. ro 
lis- _.. 



STOP 



IS NOT LESS THAN 



( literal ) 



MliliiHiii 



I RUN 



SUBTRACT 



i identifier-1 \ 



I"/ identifier-2) ~| 
LUiteral-2 J J 



literal-1 
F ROM identif ier-3 

[ROUNDED] [identifier-4[ROUNDED] ] 
[ON SIZE ERROR imperative-statement] 

( identifier-1 ) [~ i identifier-2 



SUBTRACT 



FROM 



1 literal-1 J 
I identif ier-3) 



["/ identifier-2)] 
L \ literal-2 /J 



: literal-3 J 
GIVING identifier-4 [ROUNDED] 

[.dentifier-SIm j«L)L.Pl} .. 

[ON SIZE ERROR imperative-statement] 



S_UBTRACI { gg^ ESpQND|NG } identifier-! FROM 



identifier-2 [ ROUNDED ] 

[ON SIZE ERROR imperative-statement] 

Jjreport-name-1 [report-name-2] 



... 



TERMINATE 



I &JL 
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USE AFTER STANDARD ERROR PROCEDURE ON 

file-name-1 [file-name-2] 
i INPUT 
' OUTPUT 



LNPUT-OUIPUI 



EXTEND. 



Use{™}standar 



REEL 
FILE 
UNI T 



D r BEGINNING I 

I ENDING J 



/ file-name-1 [file-name-2J 

LABEL | PROCEDURE I \ 5^jT UT 

^ ' Mb§ ' J^QUTPUT 

V 1-0 



USE BEFORE REPORTING identifier-1 tidti'i ic ' 

".. -■■ I I AKI N iOM ' -- '• 

" t q - > rti - 1 1 ' iviruy i i 



~I.L ' fi LilATE i N 



j ALL | 



}K Ufc ONVL,-iSluNi>N ' 



WRITE record-name [FROM identifier-1] 



BEFORE ) 



identifier-2 LINES 
ADVANCING -J integer LINES 

mnemonic-name 



| . i 'iMF' Ol PA T 1 

I A I — — | imperattw statemei 



WRITE [NEXT] record-name [ FROM identifier] 
| INVALID KEY imperative-statement 
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COBOL CONTROL STATEMENT 

Parameters are used to select compilation options. All are optional and 
can be specified in any order. Each is separated from the other by a 
comma. The list can be enclosed in parentheses (as shown) or it can be 
separated from the word COBOL by a comma and terminated by a 
period. 



C0B01 - [cor 
COBOL (parameter-list) 


A (Blank Conversion) 


A 


B (Binary Output) 


absent 

B 

B = LGO 




B = fn 




B = 


BUF (Buffer Size) 


BUF 


C (Copy Default) 


c 



treats leading blanks as zeros 

relocatable binary file on file 
LGO 

binary output on file fn 

suppress binary output 

selects buffer size by method 
of version 3.0 COBOL 

uses version 3.0 COPY mode; 
to copy from library, FROM 
LIBRARY must be specified 



D (Execution Abort) D 

DB (Subscript Limit DB 
Check) 

DB1 (Paragraph Trace) DB1 



prevents execution of program 
if E diagnostic occurs 

checks if subscript item with- 
in range of OCCURS for that 
item 

allows a program's flow to be 
traced by paragraphs. Used 
in conjunction with trace 
directives: 



ENTER 'D.ONTR', ENTER 
'D.OFFTR', or ENTER 
'D.STPTR'. 

E (EDITLIB) E = prog generates OVERLAY 

(COBCODE, 0, O) statement; 
selects V parameter 
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F (Computational 
Modification) 

H (Sort File) 
I (Source Input) 



K (Sub-Schema File) 



absent ) 
1 

i=input) 

l=fn 

K=fn 

absent I 
K=0 ( 



interprets COMPUTATIONAL 
items as C0MPU1A1 L'iNAI 

allocates buffer area for a 
sort 



source input on file INPUT 

source input on file fn 

sub-schema on file fn 

no sub-schema files for 
this compile 



L (List) 






absent 

L [ normal listing on file OUTPUT 

l=output) 



any combination of following options: 





L=fn 


output on file fn 




L=0 


suppress list output 




LX 


extended diagnostics 




LR 


cross reference pointers 




LC 


copy from library 




LO 


object code in octal 




LM 


data map 


N (Non-ANSI 
Diagnostic) 


N 


diagnoses any non-ANSI 
feature 


OB (Overlay Binary) 


OB=fn 


binary output from overlay 
segments put on file fn 



P (ANSI Execution) 
PD (Page Density) 



PD=lines- 
per-inch 



allows non-ANSI reserved 
words; selects N parameter 

indicates number of lines per 
inch for COBOL output; must 
be 3, 4, 6, or 8 
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absent 


installation default is used 




PD 


equivalent to PD=8 


PS (Page Size) 


PS=lines- 
per-page 


indicates number of lines per 
page for COBOL output 




absent and 
PD specified 


page size is truncated result of 
calculation: 

r*. ^^installation default for PS 
installation default for PD 




absent and 
PD not 
specified 


installation default is used 


S (Source Library) 


absent ) 
S J 
S=COLIB) 


source library from file 
COLIB 




S=fn 


source library from file fn 


SUB (Subcompile) 


SUB 


suppresses all Data Division 



SUBM (Main SUBM 

Subcompile) 



T (Tape Sort) T 

U (Alternate Collating U 
Sequence) 

V (Sort Overlay) V 

W (Initialize Overlays) W 

Z (3.0 Compatibility) Z 



binary output except from 
Working-Storage Section and | 
Constant Section I 

indicates non-COBOL main j 

program is loading a COBOL 
subprogram 

sort requests tape sort 

uses alternate collating | 

sequence I 

saves loaded program, using 
NOGO 

uses version 3.0 method of 
treating independent segments: 
they are available in last used 
state 

provides compatibility with 
version 3.0 COBOL; selects 
parameters C, and W 
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COBOL CODING FORMAT 


Column 


Element 


1 - 6 


Sequence number 


7 


Hyphen, sUsri, oi asrerwL 


8-11 


Division header 
Section header 
Paragraph name 

Level indicators FD, SD, and RD 
Level numbers 01 and 77 
Keywords DECLARATIVES and END 
DECLARATIVES 


12 - 72 


Level numbers 66, 88, and 02 through 49 

Statements and clauses 

Continuation of statements and clauses 


73 - 80 


Program identification (optional) 



Sequence number 

Hyphen 

Slash 



A'.lfl 1. 1 



Optional, checked by the processor if used. 

Continuation line. 

Comment line printed after page ejection. 

rt\ ,. i III J , t lire j >n u J & <v Ft!"" [ 



Division header 
Section header 

Paragraph name 



Level indicators 
FS, SD, and RD 

Level numbers 
01 and 77 

Keywords 

DECLARATIVES and 
END DECLARATIVES 

Level numbers 66, 88, 
and 02 through 49 

Statements and 
clauses 



Terminated by period, remainder of line is 
blank. 

Followed by optional segment number/termi- 
nated by period; can only be followed on same 
line by USE or COPY sentence. 

Terminated by period, followed by at least 
space before text begins. 

Followed by at least one space and file 
name or report name. 

Followed by at least one space and data 
name. 

Termihated by period, remainder of line is 
blank. 

Followed by at least one space and data 
name. 

Can begin on a new line or follow a preceding 
statement or clause; separated by at least one 
space. 
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COBOL COMPILATION 




tlf required by operating system 
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:OMPILATION AND EXECUTION 




: required by operating system 
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EXECUTION WITH SUBCOMPILED PROGRAM 



empty record = 
end of loader 
information 




/ ACCOUNT,usernumber,passwordt 



/ (job statement) 



If required by operating system 
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COBOL RESERVED WORD LIST 



'Indicates word not implemented. 



ACCEPT 

ACCESS 

ACTUAL 

ADD 
•ADDRESS 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

At ' I'.NUMEfiH 

ALTER 

ALTERNATE 

AN 

AND 
•ANS!8 



ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 



BEFORE 

BEGINNING 

,_,-.. j T-.l". ,- It; ' ..1 

BEGINNING-TAPE-LABEL 

' BiNAFIY 
'SITS ' 

BLANK 

BLOCK 



CALL 
I '•' WCf ' 
*CD 
CF 
CH 
CHARACTER 



CHARACTERS 

CHECK 

CLASS 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE 

COLUMN 

COMMA 

■'/ r n - .' 

COMP 
COMP-1 

COM?-2 
CGI« -3 
• tjMPUTATIONAL 

C , Ml tn ruu . 

COMPUTATIONAL-2 

i MPL rATIONAI • 
COMPUTE 
CONFIGURATION 

OMSOLE 

: CONSTANT 

CONTAINS 

CONTROL 

CONTROLS 



COPY 
CORR 
CORRESPONDING 

Ul RfcNI 



DATA 
DATA-PADDING 

: DAT*: 
LiATF i:OI IPII ED 
DATE-WRITTEN 
DAY 
DE 



DECIMAL-POINT 
DECLARATIVES 
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OCNSITY 
DEPf NDING 
•DEPTH 
DESCENDING 
P = J'NP , ION 
DETAIL 

, i'.ir 

DIRECT 
DISABLE 
DISPLAY 
DIVIDE 

1VIDED 
DIVISION 

: o ,lar 

DOWN 
DUPLICATE 
DUPL1C H . 

EBCDIC 

ELSE 

EMI 

ENABLE 

END 

■ H ; o c - 'AGE 

ENDING 

E . ' . i 

EMI Ms, fAf-E l --'Lit. 

:,i If. - ••■, LAX-lL-l! i T 

ENTER 

ENTRY 

H> -MRONMENT 

EOP 

EQ 

EQUAL 

-' <JAIS 

ERROR 

> j- r; 

»ESI 

> VI RY 
EXAMINE 

EXi ICDS 
EXIT 

: -oNn , - i 

= ■ TEND 



FD 
FILE 

FILE-CONTROL 
FILERS I - 
KILE-LIMIT 
FILE-LIMITS 
FILLER 
FINAL 
•FIND 
FIHST 

UHH 
FOOTING 

FOR 



GENERATE 
GIVING 

GQ 

GR 

GREATER 

GREATfcR-gOUAL 

< 1)01 IP 



i HED 
Abri I «ii Lit 

LA ., ' 
HEADING 
HIGH 

HIGH-VALUE 
HIGH-VALUES 
',010 
HYPER 



ID 

IDENTIFICATION 
IF 
IN 

Ml UDE 
INDI - 
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•ii =; -hi .. ' 

:•! IE . LE' -. 
INDE . . I VEI - 
IND »( •' !< 

INDEXED 
INDICATE 
INITIATE 
INPUT 

INPUT-OUTPUT 
INSTALLATION 
INTO 
INVALID 
1-0 

l-0-CONTROL 
IS 



- B'JUNDi 
LC5 

LS 




JUST 
JUSTIFIED 



KEY 
KEYS 



LABEL 
LAST 

1 FADING 
LEAVING 
LEFT 
LESS 

LFRS-KOUAL 

IBRAF ' 
LIMIT 
LIMITS 
L IMAGE 

LINAGE-COUNTfcR 
LINE 

LINE-COUNTER 
LINES 

IN AGE 
-OCATION 
LOCK 
LOW 

LOW-VALUE 
LOW-VALUES 
I I '~F BOUNC 




OBJECT-COMPUTER 

OCCURS 

OF 

OFF 




OVER FLO! 
■ ■•..■■ 
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PAGE 


REMAINDER 


PAGE-COUNTER 


REMARKS 


PERCENT 


RENAMES 


PERFORM 


HE NAMING 


PF 


REPLACING 


PH 


REPORT 


PIC 


REPORTING 


PICTURE 


REPORTS 


L4CES 


RERUN 


PLUS 


RESERVE 


POINT 


RESET 


POSITION 


RETURN 


POSITIVE 


REVERSED 


PR >ARLD 


REWIND 


",. \«,TCH 


REWRITE 




RF 


PROCEDURE 


RH 


i ' , RES 


RIGHT 


PROCEED 


ROUNDED 


-. >. ;cess 


RUN 


PROCESSING 




, ' CRAM 




PROGRAM-ID 




, R : 1 LCT 


"SA 




SAME 




SD 


■ UElifc 


SEARCH 


QUOTE 


SECTION 


QUOTES 


SECURITY 




SEEK 




SEGMENT-LIMIT 


RANDOM 


SELECT 


RANGE 


SELECTED 


RD 


•SEND 


READ 


SENTENCE 


E VE 


SEQUENCED 


RECORD 


SEQUENTIAL 


RCOORD-RLOCK 


SET 


-■ .y,', IV! AR K 


SIGN 


RECORDING 


5IG ED 


RECORDS 


SIZE 


REDEFINES 


SKIP 


REEL 


SORT 




SOURCE 


-,, FERf-VCES 


SOURCE-COMPUTER 


RELATIVt 




: RELEASE 
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SPACE 


TO 


SPACES 


•■•■ iS ' AT? 


SPECIAL-NAMES 


TYPE 


STANDARD 




START 




STATUS 


UNEQUAL 


STOP 


UNIT 


•STRING 


•UNSTRING 


•SUB-QUEUE-! 


UNTIL 


•SU8-QUFUF 2 


UP 


-SUB-QUEUE-3 


UPON 


SUS-SCHEMA 


"UPPER-BOUND 


SUBTRACT 


-.! ( -R BOUND 


SUM 


USAGE 


•SUPERVISOR 


USE 


SUPPRESS 


USING 


SYMBOLIC 




SYNC 




SYNCHRONIZED 


VALUE 




VALUES 




VARYING 


•TABLE 


"VOLUME 


TALLY 




TALLYING 




TAPE 


WHEN 


TERMINAL 


WITH 


TERMINATE 


•WORDS 


•TEST 


WORKING-STORAGE 


•TEXT 


WRITE 


THAN 




THEN 




THROUGH 


ZERO 


THRU 


ZEROES 


TIME 


ZEROS 


TIMES 
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CDC COLLATING SEQUENCE 


Char Set 
Collating 
Sequence 


COBOL 
Character 


Display 
Code 


Hollerith Punch 


(026) 


(029) 


63 


64 


00 


00 


blank 


55 


no punch 


no punch 


01 


01 


<* 


74 


8-5 


12-8-4 




02 


% 


63 


8-6 


0-8-4 


02 


03 


[* 


61 


8-7 


8-5 


03 


04 


-»* 


65 


0-8-5 


0-8-5 


04 


05 


= * 


60 


0-8-6 


8-3 


05 


06 


A* 


67 


0-8-7 


12 


06 


07 


t* 


70 


11-8-5 


8-4 


07 


08 


1* 


71 


11-8-6 


0-8-7 


08 


09 


> 


73 


11-8-7 


0-8-6 


09 


10 


>* 


75 


12-8-5 


0-8-2 


10 


11 


-i* 


76 


12-8-6 


11-8-7 


11 


12 




57 


12-8-3 


12-8-3 


12 


13 


1 


52 


12-8-4 


11-8-5 


13 


14 


; 


77 


12-8-7 


11-8-6 


14 


15 


+ 


45 


12 


12-8-6 


15 


16 


$ 


53 


11-8-3 


11-8-3 


16 


17 


* 


47 


11-8-4 


11-8-4 


17 


18 


- 


46 


11 


11 


18 


19 


/ 


50 


0-1 


0-1 


19 


20 


, 


56 


0-8-3 


0-8-3 


20 


21 


( 


51 


0-8-4 


12-8-5 


21 


22 


= 


54 


8-3 


8-6 


22 


23 


*t 


64 


8-4 


8-7 


23 


24 


< 


72 


12-0 


12-8-2 


24 


25 


A 


01 


12-1 


12-1 


25 


26 


B 


02 


12-2 


12-2 


26 


27 


C 


03 


12-3 


12-3 


27 


28 


D 


04 


12-4 


12-4 


28 


29 


E 


05 


12-5 


12-5 


29 


30 


F 


06 


12-6 


12-6 


30 


31 


G 


07 


12-7 


12-7 


•Not in COBOL character se 
t COBOL quote character ("1 


t; might be present in data. 

is output on printer as^for some terminals. 
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CDC COLLATING SEQUENCE (Contd) 


Char Set 










Collating 
Sequence 


COBOL 
Character 


Display 
Code 


Hollerith Punch 


63 


64 


(026) 


(029) 


31 


32 


H 


10 


12-8 


12-8 


32 


33 


1 


11 


12-9 


12-9 


33 


34 


V 


66 


11-0 


11-8-2 


34 


35 


J 


12 


11-1 


11-1 


35 


36 


K 


13 


11-2 


11-2 


36 


37 


L 


14 


11-3 


11-3 


37 


38 


M 


15 


11-4 


11-4 


38 


39 


N 


16 


11-5 


11-5 


39 


40 


O 


17 


11-6 


11-6 


40 


41 


P 


20 


11-7 


11-7 


41 


42 


Q 


21 


11-8 


11-8 


42 


43 


R 


22 


11-9 


11-9 


43 


44 


]tt 


62 


0-8-2 


12-8-7 


44 


45 


S 


23 


0-2 


0-2 


45 


46 


T 


24 


0-3 


0-3 


46 


47 


U 


25 


0-4 


0-4 


47 


48 


V 


26 


0-5 


0-5 


48 


49 


w 


27 


0-6 


0-6 


49 


50 


X 


30 


0-7 


0-7 


50 


51 


Y 


31 


0-8 


0-8 


51 


52 


Z 


32 


0-9 


0-9 


52 


53 


:* 


00 


8-2 


8-2 


53 


54 





33 








54 


55 


1 


34 


1 


1 


55 


56 


2 


35 


2 


2 


56 


57 


3 


36 


3 


3 


57 


58 


4 


37 


4 


4 


58 


59 


5 


40 


5 


5 


59 


60 


6 


41 


6 


6 


60 


61 


7 


42 


7 


7 


61 


62 


8 


43 


8 


8 


62 


63 


9 


44 


9 


9 


*Not in COBOL character set; might be present in dat 


). 


n COBOL record mark. 
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ASCII COLLATING 


SEQUENCE 


Char Set 
Collating 
Sequence 


Character 


Display 
Code 


Hollerith Punch 


(026) 


(029) 


63 


64 


00 


00 


blank 


55 


no punch 


no punch 


01 


01 


!* 


62 


0-8-2 


11-8-2 


02 


02 




64 


8-4 


8-7 


03 


03 


# 


60 


0-8-6 


8-3 


04 


04 


$ 


53 


11-8-3 


11-8-3 




05 


% 


63 


8-6 


0-8-4 


05 


06 


& 


67 


0-8-7 


12 


06 


07 


' 


61 


8-: 


12-8-2 


07 


08 


( 


51 


0-8-4 


12-8-5 


08 


09 


) 


52 


12-8-4 


11-8-5 


09 


10 


* 


47 


11-8-4 


11-8-4 


10 


11 


+ 


45 


12 


12-8-6 


11 


12 




56 


0-8-3 


0-8-3 


12 


13 


- 


46 


11 


11 


13 


14 




57 


12-8-3 


12-8-3 


14 


15 


/ 


50 


0-1 


0-1 


15 


16 





33 








16 


17 


1 


34 


1 


1 


17 


18 


2 


35 


2 


2 


18 


19 


3 


36 


3 


3 


19 


20 


4 


37 


4 


4 


20 


21 


5 


40 


5 


5 


21 


22 


6 


41 


6 


6 


22 


23 


7 


42 


7 


7 


23 


24 


8 


43 


8 


8 


24 


25 


9 


44 


9 


9 


25 


26 




00 


8-2 


8-2 


26 


27 


; 


77 


12-8-7 


11-8-6 


27 


28 


< 


74 


8-5 


8-4 


28 


29 


= 


54 


8-3 


8-6 


29 


30 


> 


73 


11-8-7 


0-8-6 


30 


31 


? 


71 


11-8-6 


0-8-7 
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ASCII COLLATING SEQUENCE (Contd) 


Char Set 
Collating 
Sequence 


Character 


Display 
Code 


Hollerith Punch 


(026) 


(029) 


63 64 


31 32 


@ 


70 


11-8-5 


8-5 


32 33 


A 


01 


12-1 


12-1 


33 34 


B 


02 


12-2 


12-2 


34 35 


C 


03 


12-3 


12-3 


35 36 


D 


04 


12-4 


12-4 


36 37 


E 


05 


12-5 


12-5 


37 38 


F 


06 


12-6 


12-6 


38 39 


G 


07 


12-7 


12-7 


39 40 


H 


10 


12-8 


12-8 


40 41 


1 


11 


12-9 


12-9 


41 42 


J 


12 


11-1 


11-1 


42 43 


K 


13 


11-2 


11-2 


43 44 


L 


14 


11-3 


11-3 


44 45 


M 


15 


11-4 


11-4 


45 46 


N 


16 


11-5 


11-5 


46 47 





17 


11-6 


11-6 


47 48 


p 


20 


11-7 


11-7 


48 49 


Q 


21 


11-8 


11-8 


49 50 


R 


22 


11-9 


11-9 


50 51 


S 


23 


0-2 


0-2 


51 52 


T 


24 


0-3 


0-3 


52 53 


U 


25 


0-4 


0-4 


53 54 


V 


26 


0-5 


0-5 


54 55 


w 


27 


0-6 


0-6 


55 56 


X 


30 


0-7 


0-7 


56 57 


Y 


31 


0-8 


0-8 


57 58 


z 


32 


0-9 


0-9 


58 59 


[ 


72 


12-0 


12-8-4 


59 60 


/ 


75 


12-8-5 


0-8-2 


60 61 


] 


66 


11-0 


12-8-7 


61 62 


~ 


76 


12-8-6 


11-8-7 


62 63 


- 


65 


0-8-5 


0-8-5 
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CONTRPL DATA 
CORPORATION 



CORPORATE HEAOQUARTERS. 8100 34th AVE. SO. 
MINNEAPOLIS. MINN. 55440 

SALES OFFICES AND SERVICE CENTERS 
IN MAJOR CITIES THROUGHOUT THE WORLD 



